home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
021 - HO Utilities - Clock Utility System.dsk
/
ML.OLD.MODES.bas
< prev
next >
Wrap
BASIC Source File
|
2019-02-16
|
411b
|
12 lines
10 REM MACHINE LANGUAGE EXAMPLE
20 D$ = CHR$(4)
30 PRINT D$"BLOAD BIN.OLD.MODES"
40 TEXT : HOME : PRINT "WHAT SLOT IS THE CLOCK IN? ";: GET N$: PRINT N$:SLOT = VAL(N$)
50 IF SLOT <1 OR SLOT >7 THEN 40
60 POKE 768 +7,192 +SLOT
100 CALL 768
110 I = 512: VTAB 5
120 C = PEEK(I): PRINT CHR$(C);:I = I +1: IF C < >141 THEN 120
130 IF PEEK( -16384) <128 THEN 100
140 POKE -16368,0
150 POKE 512,141